home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Wordworth / S / Startup-Sequence
Text File  |  1996-03-01  |  1KB  |  67 lines
  1. Addbuffers >NIL: df0: 30
  2. FailAt 21
  3.  
  4. version >NIL: graphics.library 37
  5. IF WARN
  6.    ;less than WB2.04
  7.    echo ""
  8.    echo "Your Amiga requires Workbench 2.04 or above to run Wordworth"
  9.    echo "The startup will now be aborted!"
  10.    quit
  11. ELSE
  12.    version >NIL: graphics.library 39
  13.    IF WARN
  14.       ;less than WB3.0
  15.       SetPatch QUIET
  16.    ELSE
  17.       ; WB3.0
  18.       SetPatch3.0 QUIET
  19.    ENDIF
  20. ENDIF
  21.  
  22. Path >NIL: RAM: C: S: SYS:System
  23.  
  24. Resident >NIL: C:Assign PURE
  25. Resident >NIL: C:makedir PURE
  26. Resident >NIL: C:Copy PURE
  27. Resident >NIL: C:delete PURE
  28.  
  29. MakeDir RAM:T RAM:Clipboards RAM:ENV RAM:ENV/Sys
  30. Copy >NIL: ENVARC: RAM:ENV ALL NOREQ
  31.  
  32. Assign >NIL: ENV: RAM:ENV
  33. Assign >NIL: T: RAM:T
  34. Assign >NIL: CLIPS: RAM:Clipboards
  35. Assign >NIL: PRINTERS: DEVS:Printers
  36. Assign >NIL: LIBS: SYS:Classes ADD
  37. Assign >NIL: KEYMAPS: DEVS:Keymaps
  38. Assign >NIL: LOCALE: SYS:Locale
  39.  
  40. IF EXISTS DEVS:Monitors
  41.   IF EXISTS DEVS:Monitors/VGAOnly
  42.     DEVS:Monitors/VGAOnly
  43.   EndIF
  44.  
  45.   C:List >NIL: DEVS:Monitors/~(#?.info|VGAOnly) TO T:M LFORMAT "DEVS:Monitors/%s"
  46.   Execute T:M
  47.   C:Delete >NIL: T:M
  48. EndIF
  49.  
  50. C:IPrefs
  51.  
  52. SetEnv Workbench $Workbench
  53. SetEnv Kickstart $Kickstart
  54. UnSet Workbench
  55. UnSet Kickstart
  56.  
  57. IF EXISTS s:User-Startup
  58.   execute s:User-Startup
  59. ENDIF
  60.  
  61. Resident makedir REMOVE
  62. Resident delete REMOVE
  63.  
  64. c:LoadWB
  65.  
  66. ENDCLI >NIL:
  67.